home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / r / rexx_plus_compiler / rexxpluscompiler2.dms / in.adf / RexxPlPlot / Examples / examples.zoo / Example05.plot < prev    next >
Encoding:
Text File  |  1990-03-17  |  430 b   |  19 lines
  1. /* Example05.plot - Test of drawing a histogram        */
  2. /* Modified for RexxPlPlot by Glenn M. Lewis - 9/12/89 */
  3.  
  4. address 'PlPlot'
  5. say 'Please be patient...'
  6.  
  7. /* Fill up data points */
  8.  
  9.       do i=1 to 2049; data.i = sin(0.01*i); end i
  10.  
  11.       'plstar(1,1);'
  12.       'plhist(2049,data,-1.1,1.1,44,0);'
  13.       'pllab("\frValue","\frFrequency","\frPLPLOT Example 5 - Probability function of Oscillator");'
  14.  
  15.       'plend();'
  16.  
  17. exit 0
  18.  
  19.